Public Class FormReporteBarrios
    Dim da As New DataAccess
    Private Sub FormReporteBarrios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim ds As New dsPropiedadesPorBarrio
        'Dim sql As String = "SELECT  top 10 count (*)as cantidad, Barrios.descripcion as barrio FROM Barrios INNER JOIN Localidades ON Barrios.idLocalidad = Localidades.idLocalidad INNER JOIN Provincias ON Localidades.idProvincia = Provincias.idProvincia INNER JOIN Propiedades ON Barrios.idBarrio = Propiedades.idBarrio group by  Barrios.descripcion order by 1 desc"
        'Dim CRBarrios As New CrystalReport6
        'da.cargarDataSet(sql, ds.barrios)
        'CRBarrios.SetDataSource(ds)
        'Me.CrystalReportViewer1.ReportSource = CRBarrios


        Me.CrystalReportViewer1.ReportSource = New CrystalReport7




    End Sub
End Class